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ccc LLL I]] U UUU TTT LLL 
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ccc LLL I]] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I}] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL IJ] UUU UUU TTT LLL 
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; 1 MODULE shodevutl(IDENT = ‘v04-0 

; g ADDRESSING *mODe " LEXTERNAL = GENERAL)) = 

3 : BEGIN 

: $ } BESET EET E TITS TITLE TT TTT TTT rrr rrr rrr iri rir i cit iit iii t iti tii iti iiititiiiity 
; ie » 
3 8 1 ie COPYRIGHT (c) 1978, 1980 1982, 1984 6 « 
FH 1 is DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
4 19 : is ALL RIGHTS RESERVED. : 
; i BB tg 1 ie THIS en IS FURNISHED UNDER A LICENSE AND MAY BE USED AND correo » 
3 1 001 1 ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH at AND WITH THE ” 
5 14 014 1 i INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS sokt WARE OR ANY ee ® 
3 15 015 1 ie COPIES Mh yl MAY a BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ® 
3 16 Botg 1 ie OTH TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
$ \ : : - TRANSFERRED. « 
Py ® e 
3 19 0019 1 ie THE —o.. ae IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ® 
3 0 0 1 i AND S Ar BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ® 
3 1 88 1 : is CORPORATION. . 
; : 00 § 1 ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
4 ¢ + ¢ : fe SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 
. i 

: ; 0037 A aeidcumeinenneigenidieaenenasidiesneendmmnimdttesnimemnieiimeeteiehenethieenebae 
: g 0080 yi 

> 31 0051 i FACILITY: SHOW utility 

: § 00 i 1 | ABSTRACT: 

3 ¢ B8 : : : This module contains the routines for the SHOW DEVICES command. 

; 0036 1 | ENVIRONMENT: 

3 i st 34 ' VAX native, user and kernel mode 

; 39 0059 ! AUTHOR: Gerry Smith CREATION DATE: 28-Jul-1982 

; 41 0041 i MODIFIED BY: 

> 4 $068 1 i v03-018 CWH3018 CW Hobbs 24-Jul-1984 
; 644 044 1! nee orb flags, max block, and ACP extent info to items 

3 $2 5 : } which are collected. 

3 6 006? 4 i vO3~017 LwPO221 Pilan 12-Apr-1984 15:01 

3 48 ones 1! BSG PRO ycest _ountic™ rs Korean NOUNER and UCBSW_VPROT to 

:  § 0080 1 i ones 

: 51 51 1! V03-016 CWH3016 CW Hobbs 12-Apr-1984 
3 ¢ 26 1! Move test for /MOUNT and VALCO to SHODEVPRT, make the routine 
3 i a7 : : suspicious of the PID in the UCB. 

; 55 55 1} VO3-015 CWH3015 Cu Hobbs 3-Mar-1984 
ae 2028 1! Fix dual-path logic so that when getting data the ‘‘ddb 

,s §$ 0057 1! Rls is always the primary ddb. Also support allocation 


S TL -$ep-1984 01:41: Ax-11 iss- 4.0-74 
rites if }eoct9Re 93:09:39 Het TUt sae Sshtokvun 682; 1 
class Goytce names for file-oriented devices and sorted 

device displays. 


v03-014 vote CW Ho oes 9-Feb-1984 
Remove reference to D_L_VOLLKI used during tria buf lds but 
not needed after EXE SOV VI_FREEB Docks s built into the system. 

v03-013 CWwH30 CW Hobbs 27-F eb-1984 


yee : more information for remote and dual-path devices. 
: x Linkages for calls to the exec, and add a handler to 
trap and dismiss kernel mode access violat one. 


v03-012 TCMO0001 Trudy C. Matthews 10-0c t-1983 
If there are two paths to the same device, find the name of 
the alternate path (i.e. the device's alias). 


v03-011 GASO178 Sst Re 7-Sep-1983 
Fix quota caching for ODS2 d B wie "ihe quota cache size was 
being taken from the wrong cell. 


v03-010 GAS0167 Gerry Smith 22-Aug-1983 
Fix the journal device name: Veet rid of the underacere that 
ioc$cvt_devnam returns, and make the device name into af 


0083 ASCIC string. 
8 v03-009 GAS0160 Gerry Smith 27-Jul-1983 

Se Show template devices by default. 

i] v03-008 GAS0149 Gerry Smith 28-Jun-1983 

44 Use IOCSCVT_DEVNAM to ebtaia’ the p ee name. 
$089 v03-007 GAS0133 Gerry Smith 14-May-1983 ; 

Add retention period, default extend quantity, default fiie 

1 protection. 

4 v03-006 rie Gerry Smith 11-Apr-1983 
0094 Modify the cluster_device 109 ic so that less checking and 
0096 testing is done in kernel mode. 

39 v03-005 GAS0110 Gerry Smith 28-F eb-1983 

98 Add support for cluster devices. 

00 v03-004 GAS0107 Gerry Smith 33-Feb-1983 

4 Add support for journals. 

08 v03-003 GAS0106 Gerry Smith ondene ees 


n the case of multivolume sets, check to make sure that 
the volume is mounted. Also stir: up the bounds Bn. POE, 


v03-002 GAS00106 rye 17-Jan-1983 
Fix the logic path for /RELO ateo’ a /MOUNTED 


v03-001 SASOOIDS Gerry Smith 13-Jan-1983 
Only check for an RVN if the ree ite is Sie~abtentat 


a ee ee ee ee ed et a a ed a ed at ot ot = - 4) = SS 2 do os St St ot tt 
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ME gM T 

: 119 116 1! Include files 

He ey! 

: 1 118 1 LIBRARY oS Leet JORARY LIB"; ' VAX/VMS a wee 

: 121 \¢ 1 REQUIRE ‘SR F ' SHOW commen. def 

: ¥ § 1 REQUIRE "SRCS: oH ODEV VDEF'; ' SHOW DEVI oo ee definitions 
; ; ? 1 ! REQUIRE ‘SHRLIBS:JNLDEF INT’; ' Journal i a tions 

> 125 1 1! 

. es $ 1 j 1 | Define the Linkage for the routines to ore and unlock the 1/0 database, 
5 } ‘ : 3 : scan the 1/0 database, and obtain the device name. 

i 3 13 ? i LINK attire JS (REGISTER = 4) 

° = = 

; 131 1 ¢ 4 : NOPRESERVE(0,1,2,3,4,5) PRESERVE (6, ain” 9,10,11), 

¥ g 1533 1 CVTDEV = JSB (REGISTER = 0, ' Length of output buffer, 
3; 1 1 1 REGISTER = 1, i i edtces “ot output buffer 
—_— 1535 1 REGISTER = 4, ' Format “ ys name 

s 135 1 1 REGISTER = 5; Address 

: 1 1 1 REGISTER = 15 Len ength of final name 

: 137 15 ; 1 8 eTtTth o°4 3,.4,5,6,7,8,9,10, in} 

: 1 1539 1 IOSCAN = JSB (REGISTER = 11, ' Call with DDB, 

3; 139 1540 1 REGISTER = 10; 'u 

; 140 1541 1 REGISTER = 11 Return with DDB, 

: 161 1348 1 REGISTER = 105 ue 

; 166 1545 1 : NOPRESERVE(0,10,11) PRESERVE(1 _ 04,5,6,7,8,9); 

: tee 1348 1: 

: 146 1368 ! The following macro makes it easier to copy stuff to the scratch area. 

: 16 m 1548 1 MACRO copy.data (s9 rce, dest) Citem] = 

3 pr 1363 : ae tte ek item)] = .sourceCZNAME(source, ‘'$', item)]%; 
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FORWARD ROUTINE 
kernel_handler; ! Turn kernel mode signals to returns 


FORWARD ROUTINE 
O.scan, 
utl_get_data; 


exTERON. ROUTIN 
show$Sw seovte "Ttes 2: NOLS, 


1 

1 

1 

1 

1 

1 

1 

! 

1 exe$dvi “frsebe 

1 sch$iolockr : oer oek, 

1 ch$iounlock : IOLOCK 
1 oc$cvt_devnam : cvIDEy 
1 1OSCAN; 
1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


— 
Soon ue 


ioc$scan_iodb_2p : 


pix 
sch$gl_ =pebvec REF VECTOR, 


GLOBAL 
kernel_accvio : VECTOR (4, LONG] ADDRESSING_MODE (GENERAL); 


at ts ss ss 
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i a a a a a a a a dd dd od 
OuFUNn—OOew MEW OO OONAULS WN 


SARA ISSSHIETLERLS 


= 
om 


ARG ose 
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— st st = 2 2 a 2 td 8 8 td 8 do td 8 tt tk 


— 
-o 
> 
-_- 
o 


——— - ~~ 


Iasi GUAR ad) 


OBAL ROUTINE kernel_handler (sig : REF BLOCKC,BYTEJ, mech : REF BLOCKC,BYTEJ) = 


FUNCTIONAL DESCRIPTION: | 
This routine intercepts kernel mode signals. | 


sig = signal argument List 
mech = mechanism argument List 


SIDE EFFECTS: 
A return is made to user mode code. 


EXTERNAL ROUTINE 
LIBSSIG_TO_RET : #ADDRESSING_MODE (GENERAL); 


: if the signal name is an accvio, then clean up 


if sig Cchf$t_sig_name] EQL ss$_accvio ! Is it an accvio? 
cre 
Sere DUAR OCK(.schSgl curpcb); ! Unlock 1/0 database 
SET_IP i Lower IPL 
CHSMOVE 16e4 sigtertst. sig_argi], kernel -accviol0}); 
RETURN LiBSSiG_TO_RET (Tsigz .mech); ' Convert signal to return 


RETURN ss$_resignal; 
END; 


-TITLE SHODEVUTL 
-IDENT \v04-000\ 


.PSECT S$GLOBALS,NOEXE,2 
00000 KERNEL_ACCVIO:: 
-BLKB 


16 
-EXTRN SHOWSWRITE_LINE 
-EXTRN EXESDVI_FREEBLOCKS 
~EXTRN SCHSIOLOCKR, SCHSIOUNLOC 
-EXTRN IOCSCVT_DEVNAM, IOCSSCAN_IODB_2P 
-EXTRN SCS$GO CONE 16. SCS$GA_LOTALSB 
-EXTRN SCHSGL-MAXPIX, SCHSGL_PCBVEC 
-EXTRN SCHSGL~ CURPCB IOCSGL-DEVLIST 
-EXTRN LIBSSIG_TO_RET 


-PSECT SCODES.NOWRT.2 
OFFC 00000 -ENTRY CERNE _NANOLER. Save R2,R3,R4,R5,R6,R7,R8,~- = 1577 
R9,R.O,R11 : 


sos" 


|; Routine Size: 


56 bytes. 


08 KS 


Routine Base: 


nm ¥ 
e 
Ss 
aoc 
Oov"Nr -OOON YP 


af 


@WoV@rcon—o 


NAN 


0918 =8 


ie | 


bony Pt the pe Sees } 


SCODES + 0000 


1:61 
2:09 


+38 AX-11 Ot ie<52 ae a 
: CLIUTL.SRCJSHODEVUTL .832;1 


HSGL_CURPCB, R4 

ScHS10 NLOCK 

#0, #1 

#16, 8(R6), KERNEL_ACCVIO 
me CH 

3, LIB$S1G_TO_RET 

#2328, RO 


5 


: 


td dh 
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14-Sep-19 
1 S57 ROUTINE fo scan (node, device, unit, flags, data) = 


2:09: CLIUTL.SRCJSHODEVUTL.852;1 (5) 


! This routine is called in KERNEL mode to scan the device data base and 

! determine which devices to coilect information about. Once a Likely 

! candidate for data collection is determined, control is passed to 

! another routine, UTL_GET_DATA, where, based on the type of device and 

' the qualifiers selected, device-specific data is stuffed into the scratch 
! area. This continues until either the end of the device database is 

! reached, or an error status (STATUS low bit clear) is obtained. Typical 
: reasons for an error status are running out of scratch area, or having 

! obtained all the data that is required of the caller. 


address of ASCIC of node part_of device name, or allocation 
class if FLAGSCDEVIS$V_ALLOCLS) 
address of ASCIC of device part of device name 


DEVICE 
UNIT address of unit number. (-1 => no unit number) 


WROPOPOROPORORORURIty 3 2 to ee 
VEWN $0 OONOUE WR OWOO~*I08 UU 


' 
' 
' 
s] 
] 
' 
' 
! 
‘ 
‘ 
' 
: Inputs 
' 
' 
' 
' 
' 
' 
' 
' 
i 
' 
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1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

: 

1 FLAGS address of options longword 

; DATA address of scratch area. 

1 ! Outputs ? 

: : DATA - is full of all sorts of useful data about devices 
: > farted 

1639 

1640 data : REF VECTOR 

1641 node : REF VECTORL.BYTE) 

ea device : REF VECTORE,BYTE), 

164 flags : REF SBBLOCK; 

1644 

16465 LOCAL 

1646 status, 

1647 limit, 

1oe8 ptr : REF VECTOR BYTE, ! Data area pointer 
164 scratch : REF S$SBBLOCK, . Scratch pointer 
1650 ucb : REF S$BBLOCK, : UCB pointer 

1651 ddb : REF S$B8BLOCK, ‘ DDB pointer p 
1636 sb : REF S$BBLOCK; ! System block pointer 
1654 ¢ 

1oe2 Trap anything weird, and turn it into a return 

1889 ENABLE 

1658 kernel_handler; 

1659 

1660 2! ; 

1661 ! Set up the scratch area so that is can be addressed easily. Also. calculate 
rare ! a@ Limit toward the end of the scratch area, so that we don't write beyond the 
1997 area. 

1665 scratch = data(1); ! Point to beginning of scratch area 
1o98 Limit = .data{0) + datal0] - d_k_length; ! Set the Limit 


Se Be Be Se Se Oe Be Se Be Oe Se Oe Oe Be he Be Oe Se Se Be Se Se Be Se Be Se Se Oe Be Ss Be Se BH Se Se Ge Se Ge Oe FH Se Ge Se Se Fe Se Se Se ee Se Oe ee Be Ge oe Be Ge 


: 
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3 


Lock the 1/0 data base. Upon return from the call to SCHSIOLOCKR, the 


ory IPL will be 2, so that pagefaults are still allowed. 

67% SCHSIOLOCKR(.sch$gl_curpcb); ! Lock the 1/0 database 

676 : 

of? : Start at the beginning of the 1/0 database and initiate the 1/0 scan. 
status = IOCSSCAN_10DB_2P(0, 0; ddb, ucb); 

67 : 

680 ! For each UCB in the 1/0 database, determine if it might contain devices of 


Sooo 


! interest. If so, then call the SE quae ty dispatch routine. Upon 
! return from the satan geener 18 STATUS must be checked, to see if any 
further scan is necessary. If not, then exit the DDB/UCB Loops. 


WHILE .status DO ! As long as the scan returns 
BEGIN ' a success, stay in the Loop. 
' For each device found, make 
BEGIN ! some checks. 
igs, toneldovidestlocis ! If an allocation class is desired 


BEGIN 
IF .ddbCddb$l_ailocis] EQL .(mode(03)! If the allocation class matches 
THEN true ! then the device is ok, otherwise 
ELSE ucb = 0 go to the next DDB. 
END 

ELSE 


IF .mode(l0) EQ. 0 
THEN true 


SESSFESE 


& 
o 


PB PU BB BB IA NINA PA A HIB TIO UE B&B ALAPOPIPIPIPUPIPIPIPURIPIPIPIPIPIPINNY 


If no node specified, then 
continue. 

Otherwise check to see if 
this node is one we want. 
If no node, go to 


FRANZ 


BEGIN 
IF (sb = .ddb{ddb$i_sb]) EQ. 0 


me a a a aed ed td 8 at ws wt ts td + 8 
SSSSSSSSOSO OO OCOOODOOO 
SESESRSNSSSSVESLISLS 


6 
6 
6 
6 
6 
6 
6 
6 
é 
g 
5 7 THEN ucb = 0 next DDB. 
7 ELSE 
7 7 BEGIN 
8 7 IF CHSEQL(.mode(0), node(1], 
7 . (sb(sb$t_nodename])<0,8>, sb{sb$t_nodename} + 1) 
10 7 THEN true ! If nodenames match, good 
11 7 ELSE ucb = 0 ! Else get next DDS 
1g 710 END 
1 711 END 
14 ar END 
15 71 END 
18 714 
1 715 BEGIN 5 
18 Ay If .device(0) EQL 0 ! If no device specified, then 
19 71 THEN 
20 4 BEGIN ! Don't display mailbox 
21 71 IF 8001 OCKEuchluchSt devchers. dev$v_mbx] |! UCB's, and get to 
¢ 720 THEN ucb = ' next ODB 
? g 1 ELSE true 
5 7 § ELSE ! If a device was 
26 726 BEGIN ! specified, check for 


F 1 
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vives tts 1e-8eb=1 984 93:60:39 tetiut sre SHODEVUTL .852;1 . (5) 
IF CHBEGL (device ti. device(1], ! @ match. 
-devicelL0O], ddb{ddb$t_name] + 1) 
THEN true ! If a match, good 
ELSE ucb = 0 ! Otherwise, go to 
END ! next DOB 


If a unit specified, 
check for a match 


BEGIN 

IF .unit NEQ -1 

THEN (.unit EQL .ucblucb$w_unit)) 
ELSE true 


If no unit, ok 


Before getting data, check 
that there is room. 

If no room, set status to 
! appropriate error 

and get out. 


BEGIN 
IF .scratch GEQA .Limit 
THEN 


BEGIN 
status = SS$_VASFULL; 
EXITLOOP 


Determine how much data to get. If no complete device was specified, — 

! return just information about this device. However, if a complete device 
was specified, check to see if this is perhaps a multi-volume set. If so, 
! then return data about the entire set. 


So, if no explicit device was given, or if the device is not file-oriented, 
or there's no VCB, or there is no Relative Volume Table, then 

collect data on one device. Otherwise, rip thru the UCB List associated 
with the RVT, and get data about each device in the set. 


MEN 9 OBNO VE WN 0 OBO FW O MEWN--O0O@~4 


WN — © OONOA UNE WN 0 OD NOU EW OOOO UE WN" OOOanou 
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IF .unit EQL -1 ! If not explicit 
- NOT .$BBLOCKCucblucb$l_devchar], dev$v_fod] ! or not Files-11 
BEGIN 
BIND vcb = ucbCucb$l_vcb] : REF SBBLOCK; 
If .vcb EQL 0 ! or no VCB 
THEN true 
64 
65 BEGIN 
IF .vcbCvcb$w_rvn] EQL 0 ! or not an RVN 
THEN tr ! then do one 


SSN 


sees 


PEGA MANA MAS AAA AA A MINNIE BEES EEE EEE EEE EP NNNE & PMS PME PAE" 


true 
ELSE false 
END 


ee a a ek a td 4 2 2 2s — 2 — 4s — —s — 8 —) — 8 — bb 8 ss 8 8 8 a ts 2 ts — 2) os 2 et 


770 END 
771 THEN 
ore BEGIN 
77 Status = utl_get_data(.ucb, .ddb, .flags, .scratch, .data); 
774 ' Get device data 
775 IF .status : If we got data, 
78 776 THEN ! update the pointer 
79 77 BEGIN ; 
80 Aa | IF .scratch(d_b_devclass] EQLU dc$_journal — 
77 THEN scratch = .scratch+d_ k_length; ! Skip an extra 
; ree peratch = .scratch + d_k_Tength; ' block if journal 


DONA UE wry 


oouovnwn 
Vw 


SRIFSAPAN SSeS 


PIPPI PIPIPINIMYININIAIMINI VEE BGI SID OD OD 0D I ID IPD PIPPI STII SISSON 


SUS KR ON LOOONO APU MODH UE RR owe pO So oe Roe 


PROPIA ee 


MEUM 0 OONOUES WN —OOONOU EWN —O 


a ee a a a el ae ee ee a ea el a a ea a a ed 
2.00 09 09 00 00 Od 0D Od CD 0D Od 0D 0D OD OD 0D 0D OD CD OD CD CD OD OD 0D 09 OD Od OD CD OD CD 0D CD 09 09 CD O98 SINISE NNN NNN 
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: ys return 


ed is i 
! /MOUNTED or /ALLOCATED 
! was specified and 
' the device wasn't either 


! If explicit t device 


1 
9 
ELSE status = 1; } The only time FALSE 
if 
' 
IF .unit NEQ -1 
! 
! 


AND .status ' (don't mask error) 
THEN ucb = 0; ' then we're done with 
END ! this DDB. 

ELSE 
BEGIN 
LOCA 


L 
veb : REF SBBLOCK, 
rvt : REF S$BBL 

ucblist : REF LOECTOR: 


veb = .ucb cet _vcbl; 
rvt = .vcblv — i“rvt 
ucblist = rvtC(rvt$l “ueblstd; 


enCR Saten FROM 0 TO .rvtCrvt$b_nvols] - 1 DO 


IF .scratch GEQA .Lim ! Check Limit 
THEN (status = SS$ VaStULL: —s 
it 33 IF .ucblistl. Index] NEQ ‘if y ry mounted, 
THEN i get dat 
BEGIN 
Ife st i. utl_get_data(.ucblistC.index], .ddb, .flags, .scratch, .data); 
Status 


BEGIN 

IF_ .scratch(d_b_devclass] EQLU dc$ ad 
THEN scratch = .scratch + d_k js 
scratch = .scratch + d_k_length 


END; 
status = 0; ' To indicate finished with 
; _ | this volume set 
IF NOT .status THEN EXITLOOP; i 60 away? 


status = JOC$SCAN_IODB_2P(.ddb, .ucb; ddb, ucb); 


scratch(d_t_device] = 0; ! To show end of List 
' 
i Now to clean up. Unlock the 1/0 database, then lower the IPL 


; to zero. 

Seb QUM OCR. -sch$gl_curpcb); ! Unlock I/0 database 
SET_IPL¢ ° ' Lower IPL 

IF .scratch EQLA data) ' If no data, 

THEN status = SS$_NOSUCHDEV ! return an error 
ELSE status = true; 


a Oe 


H 1 
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vou-000 10-3651 98¢ 93:09:29 tetiute sre SHODEVUTL .852;1 a9 (5) 


: 661 1839 RETURN .status; ' Return with status 
$ 62 129 ; END; 
‘ 
OFFC 00000 ENTRY 10, SCAN, Save R2,R3,R4,R5,R6,R7,R8,R9,R10,= = 1611 
SE 08 C2 0000 SUBL #8, SP : 
6D 018A CF DE $600 MOVA ate (F + 161 
06 AE 14 AC 04 C1 OOO0A ADDLS #4, DATA, 4(SP) : 166 
5 04 AE 00 00010 MOVL. 4(§P), S€RATCH : | 
56 14 BC 14 AC 1 0014 ADDL3 DATA, @DATA > 1666 | 
. FEF cs : OO1A MOVAB -263(R6), LIMIT : | 
| 54 000000006 00 00 0001F MOVL SCHS$GL_CURPCB, R4 : 1672. 
| 000000006 00 16 00026 JSB SCHSIOCOCKR : 
| A 7 90 C CLRQ = R10 + 1677) 
| 000000006 99 16 O002E JSB IOCSSCAN_I0DB_2P : 
58 DO 000 MOVL RO, STATOS : 
6 10 AC 00 00037 MOVL FLAGS, (SP) > 1689. 
04 AC DO 00038 MOVL NODE, RS + 1692 | 
6C 58 €9 O0003F 1$: BLBC_ STATUS, 1 + 1685 | 
59 43 01 €1 00042 ADDL3 #1, (SP), RO + 1689 | 
| 08 69 04 £1 00046 BBC #4; (RO). 3$ F 
65 3c AB at 004A CMPL 60(DDB), (R5) > 1692 | 
| 1) 1 O04E 2$: BEQL 486 4$ : 
3a 11 0009 BRB 6$ + 1694) 
65 95 900 2 3S: TSTB  —s_« (RS) : 1698 | 
17 13 00054 BEQL : | 
54 34 AB 00 00056 MOVL  52(DDB), SB t 1702) 
30 1 BR24 BEQL 6 3 
51 65 9A 0005C¢ MOVZBL (RS), R1 : 1706. 
50 44 Aa 9A 0005F MOVZBL 68(SB), R : 1707 | 
50 00 01 «AS 51 2D 00063 CMPCS R1, 1(R5), #0, RO, 69(SB) : 1706 | 
45 AG 00069 ; 
E1 11 00068 BRB 2$ : 
50 08 AC b0 0006D 4$: MOVL DEVICE, RO : 1716. 
60 95 00071 TSTB ~—s-_ (RO) ; 
| 07 12 90075 BNEQ 5$ : 
17 3A OA 04 €1 0007 BBC #4, 58(UCB), 8$ > 1719) 
10 11 OOO7A BRB 6$ : 1720. 
52 60 9A 0007C 5$: MOVZBL (RO), R2 3 1725. 
| 51 60 gh 0007 MOVZBL (RO). RI ; 1226 
| 51 00 01 AO 1s 3g 2 00088 cMPCS «RZ, 1(RO), #0, R1, 21(DDB) : 17 
| 05 13 So8R BEQL $ F 
SB ps 008 6 CLRL ue : 1728 
; OOCF 31 000 E $ BRW $ ; 
FFFFFFFE 6 SF 0c AC D1 00091 8S CMPL IT, #1 : 1733. 
09 13 00099 BEQL ; 
oc aC 54 AA 10 00 i 909 CHP ZV #0, #16, 84(UCB), UNIT : 1734 
56 7 : a0h 9$: CMPL SCRATCH, LIMIT : 1739 
8B 1F 000A7 BLSSU. 11 : 
58 0244 8F 3 OO0A9 MOVZWL #580, STATUS > 1742. 
00BB 31 OOOAE 10$: BRW 24$ + 1747 
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; Routine Size: 419 bytes, 


000000006 00 16 
12 ! DA 
04 AE 5 B} 
58 0908 ; 7 
58 1 OD 
50 8 
4 
0000 
ar 
7E 04 Ag OD 
FE26 =F 0 fe 


Routine Base: 


SCODES + 0038 


“19 
5-19 


4 01:41: AX-11 Blis 
4 9 b0:39 CLIUTL. SRC 
J$B 


SCHS 1OUNLOCK 
#0, #1 

CMPL RATCH, 4(SP) 
nN 

MOVZsL #2312, STATUS 
gag 


MOVi #1, STATUS 
MOVI = STATUS, RO 


«WORD Save nothing 
-(SP) 


SP 
MOV. 4(AP), =(SP) 
CALLS #3, KERNEL_HANDLER 


=32 V4.0-74 
SHODEVUTL .B32;1 
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4) Stare ROUTINE utl_get_data (in_ucb, in_ddb, flags, scratch, data) = 


POoo 


& 


cb = 
oae dl saa. OtkEucprucbst <foveteres dev$v_cdp] ! Is it nth class driver path? 
5 HEN ucb = .ucb pal ucb4; ' Get the ‘real’ ucb address 
36 ba = ,ucbCucb$l_orbJ> ' Save a pointer to the object's rights block 
8 ddb = .ucbCucb$i— ~ddb): ' Always use the ddb hanging from the ucb we are actually us. 
veb = .ucbLucb$l"vcb); ! Save a pointer to the volume control block 


i Collect data about this device. Initialize the SHOW DEVICE 
control areas in the scratch cel 


screcchtd.y v.bits] 
scratchld 


Clear all the bits 
Save the ucb address 


.ucb; 


trucbi 


S33ta0s8 


[ 
| 
1 | 

<3 

4g This routine executes in KERNEL mode, and is called by I0_SCAN to dispatch 

4 ! to specific data-gathering routines, based on the qualifiers and the type of 

re : device. 

50 2 ! Inputs 

51 : IN_UCB - address of the UCB of the device of interest 

26 : IN_DDB - address of the DDB whose UCB chain we are following 

! FLAGS - pointer to flags longword 

54 ‘ SCRATCH - location of scratch area where data can be stored 

2 DATA - pointer to start of scratch area 

57 2 | Outputs 

58 i SCRATCH = has fete possibly stored into it. Also, the value of 

59 i SCRATCH will have changed, to show the next place where 

? data can be stored. 

¢ ' =e = 

64 MAP 

65 data : REF VECTOR, 

scratch : REF $BBLOCK, 

44 flags : REF SBBLOCK; 

69 LOCA 

70 status, 

71 aqb : REF S$BBLOCK, 

es ddb : REF $B8BLOCK, 

7 scr : REF $BRLOCK, 

74 ucb : REF $BBLOCK, 

75 orb : REF $B8BLOCK, 

76 vcb : REF S$BBLOCK; 

re 3 

79 i Move the input parameters to the local pointers. Check if the ucb is marked as the class driver 

80 ! copy, used for dual-pathed massbus disks. If so, substitute the primary UCB and DDB for the 

3 input parameters. 

HY uc 


robe 
; $01 


000° 


Ooov0ono 
Wr—O Oo 


1 
0 1 
$8 : 
; 504 1 
3; «505 1 
ls 08 190 
; + 1904 
is $08 1905 
; 509 19 
; 510 190 
s Sit 1908 
3 21§ 1909 
is $1 1910 
i; 516 1911 
s $15 1316 
3 218 191 
, 3 1914 
; 518 1915 
s $19 1219 
; 520 191 
; 521 1918 
; 5 ¢ 1919 
; > 1920 
: 526 1921 
; 525 19 ¢ 
; 526 19 
; ast 1924 
: 528 1925 
3 268 1926 
SS 1927 
: 33 1928 
3 238 IEP 
3; 3 1930 
: 534 133) 
3 335 19 ; 
; 536 193 
s 537 1934 
; 538 1935 
; 539 1936 
; 540 1937 
3; «541 1938 
$ 2e¢ 1939 
; «54 1940 
: a8 1941 
: 545 ioe 
: 248 194 
3 4 1944 
; 548 1945 
; 549 1286 
; 550 194 
; «$51 1948 
3 236 1949 
s 33 1930 
3 65546 195 
- os 13e6 
; 226 195 
3s 55 1954 


| 
| 
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i 
i 
i 
; 
I 
T 
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' First, determine if an pi serepes pes? to the device exists. If 
' mext check that the UCB 


so, 
or the device is not already in the scratch 


: area. If it is, return without saving this device. If not, get the 
i secondary host in 


format ion 
gj, eer ocKkCucbluchS_devcher2], dev$v_2p] ! If device is dual-pathed 


BEGIN 
REGISTER 


scr : REF $BBLOCK; 
scr = data(1); 
WHILE »scr LSSA .scratch 


Start at the front of the data 
Look up to the current pointer 


The UCB is already there, 

so we can simply exit now. 

If the device is a journal | 
skip over the journal's device 
Skip to the next device 


BEGIN 

If .scr€d_l_ucb) EQLA .ucb 

THEN RETURN’ false; ; 

If .scr{d_b_devclass) EQLU dc$_journal 
THEN scr = .scr + d_k_length; 

ee = .scr + d_k_length; 


i] 
First time we've seen this UCB, start stashing some info away. 


scr = -ucbLucb$|_2p ddbj; ! Get the ddb for the second path 
scr = .scr€ddb$l_sbJ; ! Get the sb for the second host 


Copy the node name and length 
CHSMOVE (sb$s_nodename, scr{€sb$t_nodename], scratch[d_t_host2_name]); 
Copy the node type, a blank-padded string sitting in a long-word 
scratch(d_i_host2_type] = .scr(€sb$t_hwtype); 
Tell if the host is available, i.e. if an SCS connection exists 
scratch(d_v_host2_avail] = CPE, HeeLOcKLuchtuch®t _deveherd3. dev$v_mscp] 
ty -ucbCucb$l_2p_cddb]; ! Move the pointer to the CDDB for the devic 
— -scricddb$v_noconn]) 
ELSE 0); 
END; ! of code for dual-pathed devices 


Save host info for the primary host. We don't need to save the nodename, since that will be 
part of the device name we return. 


scr = .ddb{ddb$l_sb): ! Get the sb for the host 


scratch(d_v_remote_device] = (.scr NEQ scs$ga_loca 
CHSMOVE (Sb$s_nodename, scr(sb$t nodenane 


eo): 
. scratch(d_t_host_name]); 


scratchtd. | _host_type] = _.s¢r sb$t_hwtypeJ; : Copy the node type, a blank-padded strin 


scratch 


d_v_host_avail] = ! Assume that a connection exists (local nade alway true) 


| 


a 1 
¥90-800 1e-$ep-1986 12:09:27 — LeLiutLesneSsnonevere-882;1 tee 


THEN scratch(G_ 
ELSE 


BEGIN 
erent ree: B = :{orbtorbst -ovn-prot]} <0-4>3 


(scratchid_w_vprot])<4,4> = .(orblorb$l_own_prot])<0,4>; 


(scratch(d_w_vprot])<8,4> = .(orblorb$l_grp_protJ)<0,4>; 


SeSSSESSSsSs 


3 38 1986 } Check out some things only valid for MSCP devices 

ls $9 19 : IF .$B8BLOCKCucblucb$l_devchar2], dev$v_mscp) 

Het 1989 §  pecin 

3 «56 1960 scratch(d y-shadow pegter = (.ucbCucb$Sw_mscpunit] LSS 0); ! Shadow masters have negative unit #s | 
; 564 1961 scr = .ucBblucb$l_cddbj; ! Move the pointer to the CDDB for the devic 
'; «565 1306 scratch d_v_hostavaild = (NOT .scr€cddb$v_noconn)); ! Does a connection really exist? 
3 208 196 END; 

13 56 1964 

be ASS Tne pe me on 

; ' Now ge e device name. 

; % 1989 : , 

; $71 1968 ioc$cvt_devnam(20, ! Get device name, max this long 
: 276 1969 scratch(d t gevice), ! put it here 

: $7 1970 (IF .$BBLOCRCucblucb$l_devchar], dev$v_fod] ! if file-oriented 

> 374 1971 THEN 0 ! then ery for ‘‘$n$ddcu"’ format 
s $f 1376 ELSE -1), ' else select ‘‘node$ddcu’’ display format 
; 276 197 -ucb; ' UCB is here 

s 1974 scratch(d_b_devlen]); ! final Length here 

; 578 1975 

3; oy 1278 } 

3 44 19 } Copy standard cells from the UCB to the scratch area 

s 266 P 1979 copy_data (ucb, scratch, l_pid, ! Copy all the ny af 

; P 1300 l_devchar ! information from the UCB. 

: 584 P 1981 (“devcharé, 

; 585 P 1956 b_devclass, 

; 586 P 198 b_devtype, 

; 587 P 1984 w_unit, 

; 588 P 1985 w_devbufsiz, 

; 589 P 1306 l_devdepend, 

; 590 P 198 l_devdepnd2, 

> «5y¥1 P 1988 wrefc, 

2 238 P 1989 usts, 

. P 1990 w_devsts, 

: 594 P 1991 l_opcnt, 

; 595 1996 wlerrcnt); 

3 é 199 

re, 1994 : 

; 298 1995 ! Copy ORB information to the scratch area 

: 599 1238 : 

3 199 IF geretertey prot_16) 

3 1 a_w_vprot) = .orbCorb$w_prot] 

; (scratch(d_w_vprot )<18,4> = . CorbCorb$T_wor _prot])<6,4>; 

; scratchid_l_ownuic] =_.orbCorb$l_owner]; 

: 19 scratch(d_b_orb_flags] = .orblor6$b_ flags]; 

: 61 ‘ 

: 18 3i9 : Remember whether or not an ACL exists on the device 
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scratch(d_v_acl_present] = (IF .orbCorb$v 3's queu ug) 
THEN (.orbLorB$l_acl fl] NEQ orblorbst aclft)) 
ELSE 0); ! Someday maybe (lorblorb$l_acl_count] NEQ 0) 


i Copy standard cells from the DDB to the scratch area 
copy_data (ddb, scratch, l_allocls); 


i If the device is owned, get the process name 
if gucbluckSt pid] NEQ 0 


ix = pcb: REF. SapLo oto <0 16>; 
ei? ix LEQU .sch$gl_maxpix 


NBEGIN 
pce = 2$chSol_ cbvec(.pix); 
Ensnové Coco s pene. 
Cocbst_ -{nane}, | 
” . cblp Cost idJ REO” nam: ebst id) ! Consistenc check: do PIDs 
THEN scratch(dt _prcnam) = 0; - i teh? If no, don't 


3 
i 
4 
4 
4 
4 
d 
F Ponty i dL the Ait 
4 
4 
4 
4 
& 
4 
4 
4 


i for journals, get journal-specific information. 
if aucbLucbSb_ devclass) EQLU dc$_journal 


nl_mask, 
nl"segno, 
nl-asid, 
ni~ “quot, 
nl-refc, 
nl“trefc, 
“id, 


hey eaten (ucb, scratch, 


wW ~devéts, 


amo 
IF NOT gucetuchty int. svg? ' If not a slave UCB 
~ ® -vcb NEQ 0 !' and there's a VCB 


“first -jnt 
jmt EF $BB 
copy. datatuch. arate & vo|ntEep char, 
A 


it itiese. jmt = jmt = veBSle ae jmtfl}) NEQ 0 
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14-Sep-1984 t 93: :09: 38 CLIUTL.SRC Snape vin 682; 31 ” (6) 
BEGIN 
LOCAL 
wc! REF REF VECTORL,BYTE), 
we 


nlucb : REF $8 BLOCK, 
riidd ee. REF SSBLOCK; 
CH mt$t_grpnam])<0,8> + 1, 
tjat ® oo 


scratch(d att ti _mxvbA nee) E mtSl_fil_mxvbnJ; 
scratch(d_b_jnl_splJ = eadettiats spooled); 
pointer = core + d_k_length; 

_ prt, nl_avl] ="0F 


ws 
Ven seretcht ll 
i (web = cptd be 


See 


scratch(d_b_jnl_avi2? + 1; 
}) NEQ 0 


N 
IF Cinluch = F ety tp fil_ucb]) NEQ 0 
tren IF (jnld jnlucbCucb$i_ ddbJ) NEQ 0 


BEGIN 

—_, 

iocSevt ndevnam(20 
pointerL0I, 
.jnlucb; 
ap 


pointer(0) = .count - 1; 
gpa = pointer(.count); 
ND 
t= _|mtLjmt$l_forjnt ink); 
> (,jmt EQL .first_jmt) OR (.jmt EQL 0); 
wo tN? : 


If this is a disk, get the maxblock value 
if -ucbCucb$b_devclass] EQLU dc$_disk 
scratch(d_l_maxblock] = .ucbCucb$l_maxblock]; 


i If this is a disk, tape, or journal, collect common information in the VCB. 


‘ 
! 
4 
IF .ucbCucb$b_devclass]) EQLU dc$_ ee 
OR .ucbLucb$b_devclass] EQLU dc$"t 

es -ucbCucb$b_devclass] EQLU dc$_ “loreal 
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if -vceb EQL 0 
HEN (scratch(d_b_cont] = 0; RETURN true); ! If no VCB, go away. 
scratchid_b_confJ"= 1; ! Say there's more 
copy_data (vcb, scratch, b_status, ! Copy VCB stuff 
w_fvn, 
womcount, 


w trans); 
IF wucbCuch$b_deyc lass) NEG dc$_journal 
THEN CHSMOVE (vcb$s_volname, ! Get the volume Label 
veblvcb$t_volname) 
scratch(d_t_volnam)) 
ELSE COROVE (ucbFs 1D. oer 
ucbCucb$b_jni_nam] 
scratch(d_t_volnam)); 


seratch(d_b_sabtyped = peregentd_t_econen] = 0; 
IF -oa> = .vcblvcb$l_aqbJ) EQL 0 
THEN RETURN true; 


scratch(d_b aqbtype) = .aqbLaqb$b_acptypel; 
a agb$l_acppid] NEQ 0 * fire 


Assume no AQB, therefore no ACP name 
If no AQB, then no more 
Go away 


Stash the ACP type 
If the pid checks pass, get the ACP process name 


L 

pcb : REF SBBLOCK; 

cb = sechSa i pcbyect. (aqotaqost acppid])<0,16>]; 
i ,pebloct \“pid] EQL .aqblaqb$T_acppid) 


CHSMOVE (pcb$s_lname, 
pcb(pcb$t_inamel, 
a scratch(d_t_acpnam]); 


If a magtape, get magtape-specific data from the Magtape Volume List (MVL). 
This is rather involved, since there is no direct Link between the MVL and 
the UCB in question. Instead, the List of UCB's in the Relative Volume 
Table are scanned in index order, until this UCB is found. The mounted tape 
in the MVL with the same index is then found. 


IF .aqgblaqb$b_acptype] EQL aqb$k_mta 
THEN 


BEGIN 
BIND 
rvt = veb(vcb$l_rvt] : REF SBBLOCK 
gootae = rvtCrvt$l_ucblst] : VECTOR; 


index; 
index = -1; 
INCR i FROM O TO .rvtCrvt$b_nvols] -1 DO 
(IF .ucblstC.i] EQL .uc 
T (index = .i; EXITLOOP)); 
IF index EQL -i 
THEN 


BEGIN 
scratch([d_t_volnam] = 0; 
scratch(d_w_orvn] = 0; 


DODODODOO 
b DD. ted ty te bbe 5 pat they 
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END 
ELSE 
BEGIN 
LOCAL 


it, 
mvl : REF SBBLOCK; 
myl = .vct{CvcbSl_mvi] + mvlSk_fixlen; 
Limit = .mvi(mvl$b_nvols] = 1; 
INCR mvli FROM 0 TO .Limit DO 

BEGIN 


IF .mviCmvl$b_rvn] EQL .index 
anp avi laviS6_ status 


BEGIN 
scratch(d_worvn] = .mvli + 1; 


Find an entry with 

the same RVN and 

that is mounted 

(Low bit set -> mounted) 


Because RVN's start at 1 


CHSMOVE (mv \$s_vollbL ! Get the volume Label 
mviCmvl$t_volibty, 
scratch(d_t_volnam]); n 
EXITLOOP ! Skip the rest of the MVL 
ELSE mvl = .mvl + mvl$k_Length; ! Otherwise, go to next 
END; ‘ ! MVL entry 
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ND; 
scratchtd_w_recordsz] = .vcb(vcb$w_recordsz); 


RETURN true; 
END; 


If this is a disk, collect disk-specific information 


IF .aqblaqb$b_acptype] EQL aqb$k_filivi 
a aqb$b_acptype) EQL aqb$k_filv2 


BEGIN 

copy_data (vcb, scratch, w cluster, 
w_extend, 
l_free 
(“maxfiles, 
b_window, 
b_lru_lim); 

END; 


' Get record size 
! Go away. 


For ODS-2 disks, there is more information to collect, namely the retention 


periods and caching parameters. 


IF .aqgbCaqb$b_acptype) EQL aqb$k_filv2 
THEN q q -acptyp q ™ v 


BEGIN 
LOCAL vca : REF S$BBLOCK; 


i For ODS-2 disks, get the correct free blocks from the value block associated with 
! the volume lock, We call an internal routine in GETDVI which will use SGETLKI to 


! grab the value from the XQP's Lock value block. 


at IPL = IPLS_ASTDEL. 


This routine expects to be called 


exeSdvi_freeblocks (.vebCvcb$l vol \kid], scratch(d_l_free]); 


copy_data (vcb, scratch, b_stafus2); 


f-—- 
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; et? 40 4 CHSMOVE (vcb$s_retainmin + vgis_rotetnnes, 
; 4 41 & veb rise p wighe tine das 2 
(3 6845 tg 4 scratch(d_q_retainmin)); 
13 846 63 6 scratch(d_w_fidsize] = scratch(d_w_quosize 
3 tS rf: ? = scratch(d_w_extsize 
$ = 0; 
; 849 46 4 IF (vca = .veblvcb$l_cache]) NEQ 0 ! If fid/ext cache 
3 529 ts 4 ag ! present, get those 
; o2¢ 4G 2 LOCAL cache : REF SBBLOCK; 
; 85 50 IF (cache = ,vcalvca$l_fidcache]) NEQ 0 . 
3 S2¢ 2} THEN scratchid_w fidsize] = .cachelvca$w_fidsize); 
; 855 § IF (cache = .vCalvca$l_extcacheJ) NEQ 0 
; 856 5 N 
3s Sor 54 6 BEGIN 
; 858 55 6 scratch(d_wlextsize] = .cachelvca$w_extsize]; 
3 839 $28 6 scratchid_w_extlimit] = -cacheLveasi_ext init]; 
; 860 5 3 scratch(d_l_exttotal] = .cachelvca$l_exttotaldj; 
; 861 $28 ND; 
; 86 59 4 END; 
: 86 260 4 IF (vca = .vcbCvcb$l_quocache]) NEQ 0 ; ! If quota cache, 
; 864 261 4 THEN scratch(d_w_quosize] = .vcalvca$w_quosize);! get quota size. 
> 865 $06 & SASS (d_s_acpnam, GEQ, fllbc$s_cachename); ! Make sure it is large enough 
3 508 2964 ? wee = .aqbLaqb$l_bufcache]) NEQ 0) ! If buffer cache exists get the cache name 
; 868 ses 5 (.aqbCaqb$l_acppid] EQL 0) ! if the acp didn't have a name 
; 869 266 4 THEN 
; 870 344 5 BEGIN ae 
; 871 68 5 scratch(d_v_cachename) = 1; ! Remember that it is cache name and not ACP name 
3; 87 2269 5 CHSMOVE (T1Tbc$s_cachename, 
3; 87 $570 5 vcalf11bc$t_cachename), 
; 874 e271 5 scratch(d_t_acpnam]); 
3 15 $558 ? scratchtd_u_bircnt] = cvcalfiibc$w_bfrent]; ! Number of buffer cache blocks 
; 877 2874 3 END; 
: 878 275 2 END; 
; 879 $si6 
: 880 e77 : : ; 
: 881 2278 ! In the event that that the device is spooled, the VCB field actually. 
; 88 279 ! points to a block containing the name of the queue to which this device 
; 88 280 ! is spooled, and UCBSL_AMB contains the address of the UCB of the 
3 eee 4 intermediate device. 
; 386 288 If ,$BBLOCKCucblucb$l_devchar], dev$v_spl] 
; 84 THEN 
; 888 285 BEGIN 
; 889 soe BIND 
; 890 87 int_ucb = ucbCucb$l_amb] : REF SBBLOCK, 
; «891 288 t_ddb = int_ucblucb$l_ddb] : REF SBBLOCK; J 
: 89 2289 ioc$cvt_devnam(20, ' Get device name, max this long 
; 89 90 scratch(d_t_intdev], ' put it here, — 
; 894 91 -1, ! in standard display format 
, 38 -int uc; 5 ' UCB is here 
: 896 9 scratch(d_l_intlen]); ! final Length here 
; 897 94 IF .vcb NEQ 
; 898 344 THEN CHSMOVE(.vcbCvcb$b_qnamecnt] + 1, 
; 899 96 vebCvcb$b_Qnamecnt], 
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50 D6 00454 INCL. RO ; | 
(7 0B AA 50 28 00456 MOVC3 RO, 11(VCB), 178(R7) : 2297, 
04 11 00450 BRB ; | 
00B2 C7 94 0045F 458:  CLRB —«178(R7) : 2298. 
50 01 D0 00463 468:  MOVL #1, RO : 2302. 
04 00466 RET : | 
50 D4 00467 478:  CLRL_— RO : 2303) 
04 00469 RET : 


; Routine Size: 1130 bytes, Routine Base: $CODE$S + 01DB 


HEostoct9Re 01:41:58 YAKctt BL iage32 ys-0o7Kg. 


; 908 4 1 END 
; 909 3303 0 ELUDOM 
; PSECT SUMMARY 
; Name Bytes Attributes 
; $GLOBALS 16 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, Se ie ar ientss 
; SCODES 1605 NOVEC.NOWRT, RD » EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
H Library Statistics 
3 cwscsees Symbols ococcece Pages Processing 
5 File Total Loaded Percent Mapped Time 
: _$255$DUA28: CSYSLIBILIB.L32;1 18619 136 0 1000 00:01.9 
3 COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:SHODEVUTL/OBJ=OBJ$:SHODEVUTL MSRC$:SHODEVUTL/UPDATE=(ENH$: SHODEVUTL) 
; Size: 1605 code + 16 data bytes 
un Time 00:55.9 


: pate y Tieee 03200.6 
3: Lines/CPU Min: 47 

3 emg Ao Rad” 39481 

; poe | Used: 564 pages 
; Compilation Complete 


roe ot 


005 AH-BT13A-SE | IGI T CORPORATION 
VAX/VMS V4.0 _ PROPRIETARY 


~ AH-BT13A-SE DIGITAL EQUIPMENT CORPORATION 
VAX/VMS V4.0 CONFIDENTIAL AND PROPRIETARY 


I 


I 
0 


I 
FE 


005 


